COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE XYZ
C00008 ENDMK
C⊗;
	TITLE XYZ
	EXTERNAL JOBDDT,JOBOPC
OA←14
N←15
INT:	HRRZI N,IOA
STAR:	HRRZI OA,IOA
	RESET
	OUTSTR [ASCIZ/*/]
	SETZM OUTFLG#
	CLRBFI
	INCHWL 7
	CAIN 7,15
	JRST STAR
	CAIN 7,612
	JRST DDTST
	HRRZ 6,N
	HRRZM 7,(6)
	HRRZM 7,1(6)
	ADDI 6,2
	INCHRS 7
	SKIPA
	JRST .-5
	SUBI 6,4
	HRR 7,2(6)
	TRNN 7,600
	JRST MAIN
	SETOM OUTFLG
	HRL 10,N
	SUBI N,2
	SUBI 6,2
	MOVE 5,(N)
	MOVEM 5,TMP#
	HRR 10,N
	BLT 10,(6)
MAIN:	HRRZ 10,6
	HRRZ 5,N
CKEQ:	MOVE 11,(5)
	HRRZ 4,OA
	CAIL 4,(N)
	JRST .+5
	CAMN 11,(4)
	JRST .+6
	ADDI 4,2
	JRST .-5
	MOVEM 11,(N)
	MOVEM 11,1(N)
	ADDI N,2
	SETZ 13,
	CAIA
	AOJ 13,
	ADDI 5,2
	CAMN 11,(5)
	JRST .-3
	HRL 4,4
	JUMPE 13,.+7
	HRR 4,13
	IORI 4,400000
	MOVEM 4,(10)
	MOVE 7,4
	SOJ 4,
	JRST .+11
	ADD 7,[2,,000002]
	CAME 4,7
	JRST .+4
	SUBI 10,2
	HLL 4,(10)
	CAIA
	MOVE 7,4
	MOVEM 4,(10)
	AOBJN 4,
	MOVEM 4,1(10)
	ADDI 10,2
	CAIGE 5,(6)
	JRST CKEQ
	HRR 5,N
	SUB 10,6
	ADD 10,N
	HRL 5,6
	BLT 5,(10)
	HRRM N,CEX#
FDEQ:	MOVE 4,(OA)
	HRRZ 5,N
LKMO:	CAMN 4,(5)
	JRST EQU
ADIN:	ADDI 5,2
	CAIGE 5,(10)
	JRST LKMO
	ADDI OA,2
	CAIGE OA,(N)
	JRST FDEQ
	HRR OA,CEX
	ADDI N,2
	CAIGE N,(10)
	JRST FDEQ
	JRST BACK
EQU:	ADDI 5,2
	HRRZ 11,OA
	CAIL 5,(10)
	JRST CKLA
	ADDI OA,2
	CAIL OA,(N)
	JRST .+4
	MOVE 6,(OA)
	CAMN 6,(5)
	HRR 11,OA
	SUBI OA,2
CKLA:	SUBI 5,4
	CAIGE 5,(N)
	JRST MVM
	MOVE 6,(5)
	JUMPGE 6,MVM
	HRRZ 6,6
	ADDI 6,2
	CAIE 6,(OA)
	JRST MVM
	HRRZI 6,2
	CAIE 11,(OA)
	ADDI 6,2
	HLL 11,(5)
	JRST .+6
MVM:	ADDI 5,2
	CAIN 11,(OA)
	JRST ADIN
	HRL 11,OA
	HRRZI 6,2
	TLO 11,400000
	MOVEM 11,(5)
	AOBJP 11,
	MOVEM 11,1(5)
	ADDI 5,2
	SUB 10,6
	ADD 6,5
	HRL 6,6
	HRR 6,5
	BLT 6,(10)
	JRST LKMO
BACK:	SUBI 10,2
	HRRZ 13,CEX
	SKIPL (10)
	JRST DPO
	CAIN 10,(13)
	JRST ONLY1
DPO:	HRL 7,13
	HRR 7,10
	HRR 5,13
GXO:	MOVE 6,(5)
	TLZN 6,400000
	JRST NXO
	SUBI 13,2
	CAIGE 13,IOA+4
	JRST NXO
	CAME 6,(13)
	JRST .-4
	MOVE 6,1(13)
	TLO 6,400000
	MOVEM 6,1(5)
NXO:	ADDI 5,2
	HRRZ 13,CEX
	CAIG 5,(10)
	JRST GXO
	ADDI 10,2
	MOVEM 7,(10)
NSEN:	MOVE 11,7
	AOBJN 11,
	MOVEM 11,1(10)
	JRST FIXOUT
ONLY1:	MOVE 7,(10)
	TLZ 7,400000
	MOVEM 7,(10)
	SUBI 13,2
	CAIGE 13,IOA+4
	JRST NSEN
	CAME 7,(13)
	JRST .-4
	MOVE 11,1(13)
	MOVEM 11,1(10)
FIXOUT:	SKIPL OUTFLG
	JRST GTO
	MOVE 13,TMP
	MOVEM 13,(10)
	MOVEM 7,1(10)
	MOVE 11,7
GTO:	ADDI 10,2
	HRR N,10
	HRR OA,N
	HRRZ 13,OA
	ADDI 13,200
	HLRZ 4,11
	TRZ 4,400000
BUNT:	HRRZ 5,11
REEM:	HLRZ 7,(4)
	TRZE 7,400000
	JRST MINY
	HRRZ 10,(4)
	TRZE 10,400000
	JRST MOON
	MOVE 6,(7)
	MOVEM 6,(OA)
	AOJ OA,
	ADDI 7,2
	CAIG 7,(10)
	JRST .-5
	JRST ADO
MINY:	PUSH 13,11
	MOVE 11,(4)
	HRR 4,7
	JRST BUNT
MOON:	MOVE 6,(7)
	MOVEM 6,(OA)
	AOJ OA,
	SOJGE 10,.-2
ADO:	ADDI 4,2
	HLR 7,11
	ADDI 7,2
	HRL 11,7
	CAIG 4,(5)
	JRST REEM
	TLNN 13,777777
	JRST TYOUT
	POP 13,11
	HLR 4,11
	HRR 5,11
	TRZ 4,400000
	JRST ADO
TYOUT:	HRRI 4,15
	HRRZM 4,(OA)
	AOJ OA,
	HRRI 4,12
	HRRZM 4,(OA)
	HRR 4,N
	SKIPL OUTFLG
	OUTSTR [ASCIZ/ /]
	OUTCHR (4)
	AOJ 4,
	CAIG 4,(OA)
	JRST .-3
	JRST STAR
DDTST:	SKIPN JOBDDT
	JRST STAR
	HRRZI 11,STAR
	MOVEM 11,JOBOPC
	HRRZ 11,JOBDDT
	JRST (11)
IOA:	BLOCK 22000
	END INT